home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_asm / asmsrc / circle_2.asm < prev    next >
Encoding:
Assembly Source File  |  1983-07-27  |  1.2 KB  |  36 lines
  1. TITLE CALLER - CALLS CIRCLE SUBROUTINE
  2. EXTRN CIRCLE:FAR;external subroutine
  3.  
  4. STACK    SEGMENT PARA STACK 'STACK'
  5.          DB   64 DUP('STACK   ')
  6. STACK    ENDS
  7. CALLER   SEGMENT PARA 'CODE'
  8. START    PROC FAR
  9. RADIUS   DW   20        ;INITIAL VALUE OF RADIUS
  10.          ASSUME CS:CALLER,SS:STACK
  11.          PUSH DS        ;save ret seg on stack
  12.          XOR  AX,AX     ;zero for ret offset
  13.          PUSH AX        ;and save on stack
  14.          MOV  AL,4      ;color/graphics select
  15.          INT  10H       ;set mode
  16. LOOP_CIR: MOV  AX,160    ;X origin coord
  17.          PUSH AX        ;save on stack
  18.          MOV  AX,100    ;Y origin coord
  19.          PUSH AX        ;save on stack
  20.          MOV  AX,RADIUS ;CIRCLE RADIUS
  21.          PUSH AX        ;save on stack
  22.          MOV  AX,5      ;aspect numer
  23.          PUSH AX        ;save on stack
  24.          MOV  AX,6      ;aspec denom
  25.          PUSH AX        ;save on stack
  26.          MOV  AX,1      ;foregrnd color 
  27.          PUSH AX        ;save on stack  
  28.          CALL CIRCLE    ;draw circle 
  29.          ADC  RADIUS,10 ;INCREASE RADIUS BY 10
  30.          CMP  CX,80     ;END VALUE
  31.          JLE  LOOP_CIR   ;ONE MORE CIRCLE
  32.          RET            ;far ret to DOS  
  33. START    ENDP 
  34. CALLER   ENDS 
  35.          END 
  36.